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REPORT 
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once again. 


The first thing I would like to say this month isl 


'■ V here are you all?" It surely isn't just because we keep forget ti nop 
to put the date of the nest meeting in the newsletter that you ar e | 

' I 

case that's the reason, here are the meeting dates from thef 


not coming along is it? 


Just in 

% 

next meeting, until the end of the year. Please mark your calendars! 
and diaries now. 


April i , 1935 (next meeting) 

April S3, 1985 

Nay 27, 1935 

June 24 , 1935 

July 22, 1935 

Aug us t 19,1935 

September 16, 1985 

October 14, 1935 

November 11, 1935 

December 9, 1,9 85 


! 




I f 


1 remember, I will try and remind vou of the ne:;t meeting date i n | 

' ■ % 


each, newsletter 




Last month Allan Clarke showed what the updated RS232 Driver and Word | 
P r o cess a r arocsr a ms cou 1 d n o w do. The W a r d Processor speed has been 4 


P r o g r am s 

improved to 500 words oer minute, and I have had a 


q c a t this (not I 


real 1 y 

be! irrvincj Allan 

at the time) and s u r e 

enough , i 

t c e r t 

a i n 1 y 

i s 

a lot 

f aster . 






The r e 

is only c ns n e w 

command, and this is a 

K f o r c o p 

y i n g b 

1 o c 1; s 

o f 

t e :: t w 

i thcut actually s h 

iftinq them from where 

they are 

n o w , - 



A lot 

of other function 

s have been improved or 

speeded 

up , an 

d all 

i n 

a 1 1 i 

t is a pretty good word processor now. 

Updated 

con i es 

will 

be 

s e n t 

out any cay now 

, I h a / a just been w a i 

ting for 

A 1 1 a n ' 

s say 

-so 

a f t e r 

several of us h 

a v e b sen test i n g this new ver s i o 

n tom 

a k e s 

u r e 

it Coe 

sn ' t fall down an y 

w h ere. 
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I have to admit that I really don't know what improvements have been 
made to the RS232 Dr i ver . All I know is that its capacity has 
doubled. I am going to persuade Allan to write up a piece in the 
newsletter to describe its functions a bit better than I have. 


Chris Bishop held his second 'Basic for Newcomers' class and there 
would have been an equal number in his class as there was in Allan's 
talk. Chris must be doing something right! ! 

As I have mentioned before I am cor respond i ng with two Dutch Colour 
Genie Owners now, one is the Secretary of a Colour Genie group in 
Belgium and the other a Genie owner. The Secretary of the Belgian 
group would like to know if any members would like to swap our stamps 
for Dutch stamps. If anyone would, can they get in touch with me 
please. Alternatively if you aren't interested in Dutch stamps but 
have some of any sort, lying around, perhaps you could let me have 
them, so that I can send them over to him. I would like to help him 
if possible with his stamps, I am hoping that apart from swapping 
tapes, that the Group can purchase, at a reasonable cost, their 64 K 
card and switchable Character Generator, plus a program/eprom (I'm 
not sure which) that changes the screen from 40 to 80 characters 
wide. 


Y e 5 , it is a i t 1 i k e br ibery, but it is in a good cause. 

The Dutch people really seem to want to 'meet' other Colour Genie 
owners through letters, and swap programs with them. I have just 
written to another Dutchman who advertised in one of the Engl i sh 
computer magazines wanting to swap programs. More on this whn I get 
an answer from him. 


Graeme Pull ar , a newish member, works on the Satellite Station at 
War k worth, and he says that when it is completed he would be willing 
to take group members over the station. It would have to be a 
Saturday or if a weekday, then after 4 pm and the groups would be 
around 10-15 persons. If anyone would be interested in this, could 
they please let the committee know? We could perhaps arrance a day's 
outing, contributing towards the petrol of those who took t h e ,i r cars 
up there. What do you think? 

All those people who have already. paid their subs, or who pay some 
time during this month, will be sent free of charge and in 
appreciation for prompt payment, a 40 page 'booklet' on articles 
about the Colour Genie that have appeared in the Personal Computing 
Weekly and Computing -Today magazines. These articles include an 
assembler program, programs on 'sprites', sound and colours. There 
are many programs for you to enter into your machines an d m any hints 
and tips. This b o o k 1 e t has cost a lot of money to have photocopied, 
and will only be sent to members who pay their 1985/86 subs either 
before, or during April 1986. The booklet cannot be purchased from 
us later. Also, please remember that this is your last free 
newsletter. If your sub hasn't been received by us by the end of 
this month (April) your name will be w i t h d r a w n from our mailing list. 


New or Updated Software 


Saug 

There will be a delay on this program update, as the copy I was given 
has decided that under no circumstances will it load. 


Word Processor 

This is in the process of being tested by myself and a couple of 
other people. This is the final test, so the program should be 'on 
the streets' very shortly. 


Flugsimulator 

Remember I mentioned this flight simulator with radar and war option 
last newsletter? Well, Keith has done a fantastic job on translating 
the manual and this program is now ready for sale. It is a very 
involved program, probably more so than Flying Bytes. Put it this 
way, being a dumb female I have trouble even making out the runway 
(its in 3D) let alone actually taking off. I would say this program 
would really be terrific for those people who have mastered Flying 
Bytes and now think that program is a piece of cake. Selling Price 
is $14.00. 


Jump 

This program is being released with a wee Colour problem. When you 
are entering your name at the end of the game, the screen comes up 
blank randomly. Just press any key 7 or 8 times until the screen 
changes. Instead of your name, you will have a row of A ' s , but you 
will still know who you are. Unfortunately Andy hasn't had a chance 
to lock at this program yet and won't be able to for a while, so this 
will have to be updated when Andy has had a chance to fix it. 


Basic +5 

Same applies to this program. We just can't release it as it is, as 
the whole thing is in German and machine code. 


I have at last heard from Gumboot about the 30 programs I ordered 
before Xmas. They reckon they sent them all to our box number by 

surface mail (even though I paid some 11.00 pounds for airmail 
postage 1 ) so I have written back and asked them to send some more. 
Among this long-awaited software is the Comp i 1 er , the Jumbo 747 
flight simulator, Jet Se t Billy, Exile and the German Phrase Book 
tape. Hopefully some of it will be here by next month. I won't hold 

my breath though. 


I also complained about not receiving Gum magazines 
Sept /'Oct one, and lo and behold, they sent us two 
November/December 84, and January/February 1985. These 
process of being photocopied now and will be sent out (or 
at the meeting) as soon as Chris has been able to do them. 


since the 
at once, 
are in the 
handed out 


That's my lot for this month, 1 o o k forward to seeing you all on the 
1st April next. 




EDITORS NOTES 


Firstly a few words about the 3-D programe. Its instructions are 
very clear but the object of the program is to plot an isometric shape 
on the high res’ screen and to be able to turn the shape left/right 
and to tilt it up/down. Once you have typed it in and seen the effect 
of inputting various numbers when asked try a different shape by 
deleting or changing all the data lines except line 2000 which must 
r smai n && is- 


SWAPS 

***** 


swap for games 

DES AUSTIN 
KARAKA 
2927-363 


DOUBLE AGENT for w.h.u 
GRAPHICS MASTER for w.h.u or sell $8 
contact:- KEITH Me SILL 


DISASSEMBLE 
BANK ACCOUNT 
THE LINK 

contact : - 


Open letter to all club members. 


I would like to thank all members who send in programmes 
for others to enjoy, it is very nice to sit down at the 
C.G.and type in ready made ’shows’, but i wonder if, while you 
are rapturously punching them in you give a thought to the 
people who made it possible. Having produced programmes for 
my local school, I know that it represents a lot of time, work 
and effort, so I feel that if you want the club to flourish 
and continue the good work, you should all try to send in 


programmes of one sort or another, be it games , ut i 1 i t i es , or 
educational. 


Th*- computer is a tool with which we have only scratched 
the surf ace, there must be many other uses that it can be put 
to, so how about writing to the club about any experiments 
you have carried out, and what you have been trying to do, and 
of course any programmes you have made up, as without your 
input, we shall never get any new idea’s, it’s up to ordinary 
members, not just the ’whiz kids’ to write material. 

Remember, without the club, you will not have any new 
programmes to run, so i t i s up to a 1 1 of us to look after a 
good thing, so come on and let’s hear from you. 

In closing, I would like to express on behalf of all club 
members our appreciation of the excellent work of the 
committee for all the hard work that they put in. 


i 

j 


i 

l 


Ren Burton. 


Te Aroha. 



The 


GREAT UN DERLINE Ely S T .E RY. 



Hello 

to 

al 1 

Super 5/CP 

30 , Epson 

MX S3 

III and 

similar clone 

print 

er owner- 

s. 

You ar 

e no doubt 

aware of 

a sm 

all probl em 

tnat you have 

with 

ou tpu 1 1 i 1 

ng a 

CHR»(0) to the printer to 

con t 

rol under 1 2 n 1 

ng, superscript 

etc . 

Wei 1 , 

i t 

is no 

longer a 

probl em ! 

At 

the last c 1 u 

b night, Ross's 

Super 

5 deal t 

me a 

. knock 

-out blow 

while I 

was a 

ttempting to 

demonstrate the 

revi s 

ed Wordmate 

- WP2 

word proc 

es-sor . 

Later 

that evening 

, we had a long 

inves 

tigation 

i n t 

0 the 

probl em. 

Work 1 ng 

from 

a suggestion 

made by Olwen, 

I was 

able to 

make 

a pat 

ch to th 

e Genie's 

RAM 

which solved 

the diff icul ty. 

In sh 

ort, the 

problem 1 

ay in the 

Gen i e 

not 

outputting a 

nu 1 1 charac ter 

1 — 1 

n 

X 

XI 

w 

(0) ] and 

not 

in the pr 

inter . 

Th i s 

has been i 

nheritted from 


grind-father TRSS0-I. The null character is used to mark the ends o f 
strings, program lines etc. 

There are two ways o-f incorporating the patch into your program. 
The -first i-s -for those programs that do not have any DATA statements: 

Patch 1 10 FOR J=9 TO 10.-READ K:P0KE 16422 + J,K:NEXT 

20 DATA 45,64,67,0,0,80,82,121,195,235,4 
The second is for those programs that already contain DATA statements: 

Patch 2 10 X$-=" 045064067000000330032 121 1952358 8 4" 

28 FOR J=8 TO 10:K=VAL<MID$(X$,J*3+1,3)) :P0KE 16422 + J,K:NEXT 

Naturally, the patch has been incorporated in the word processor 
(not in the same way as above) and this article has been printed with WP2. 
The patch is robust and will survive all computer activities except a cold 
reboot (hold down the R key and press RSTs) . 

While on the subject of the Super 5 printer, it is worth mentioning 
that nearly all o-f the CTRL (control) and other codes are available -from the 
keyboard o-f the Genie. The CTRL -function is obtained by holding the SHIFT 
and down-arrow keys down and then pressing the CTRL code letter. The ESC 
(escape) -function is obtained by SHIFT/up-arrow. Codes 29-21 are obtained 
by CTRL as above and FI to F4 keys. CHR$(8) is not available -from the 
keyboard but is so in WP2 and there is a slight variation of operation for 
ESC in WP2 and the RS232 driver. 

- A1 1 an Cl arke 
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10 CLS: PRINT@48 f "THE EASTER BUNNY'S TIMETABLE" 

20 PRINT: PRINT 

30 PR I NT "DATE OF EASTER SUNDAY" 

40 PR I NT: PR I NT 

50 PR I NT" WHAT IS THE REQUIRED YEAR" 

60 INPUT A 

70 B=A- C I NT C A / 1 9 > * 1 9 ) 

80 C=INTCA/100> 

90 D=A~ C I NT C A / 1 00 ) * 1 00 > 

100 E=INT CC/4) 

110 F=C-C INT(C/4>*4) 

120 G=INTC CC+8) /25) 

130 H= I NT C ( C— G+ 1 } / 3 ) 

140 I=C <: 19*B>+C-E-H+15>-<: INTC < C 19*B) +C-E-H+15) /30) *30) 

150 J= I NT CD/4) 

160 L=D-C INTCD/4):+:4) 

170 M= (32+ C 2*F ) + C 2* J > - 1 -L ) - C I NT C C 32+ C 2*F ) + C 2* J ) - 1 -L ) / 7 ) %7 > 
180 N= I NT C C B+ C 1 1 * I > + C 22*M ) > / 45 1 > 

1 90 P-I NT C C I +M- C 7*N ) + 1 1 4 ) /3 1 ) 

200 Q= C I +M- C 7*N ) + 1 1 4 ) - C I NT C C I +M- C 7*N ) + 1 1 4 ) /3 1 ) *3 1 ) 

210 Q=Q+1 

220 IF P=3 THEN 260 

230 PRINT: PR I NT "FOR " ; Aj "EASTER SUNDAY FALLS ON " 

240 PRINT 

250 IF P=4 THEN PRINTQ, "APRIL" : GOTO 270 
260 PRINTQ* "MARCH" 

270 END 

280 REM: FROM AN APPLE PROGRAM IN 'APPLEMATE' : AKMc . 


CLS 

l O 7 3-D Graphics 

20 CLEAR 100 
30 CLS 

40 F’RINT"This program displays a predefined." 

50 FRINT"3— di men si anal shape as viewed from" 

60 PRINT"di f f erertt angles." 

70 PRINT 

80 FRINT"The program asks for two numbers. " 

90 PRINT" 7 RIGHT 7 is the number of degrees you" 

100 PRINT"want to move to the? r i ght , rel at i ve " 

110 PRINT"to the front str ai ght -on . posi t i on . It " 

120 PRINT"can be negative if you want to move" 

130 PR I NT "to the left" 

140 PRINT 

150 PR I NT"Si mi 1 ar 1 y , 7 UP 7 is the number of" 

160 PRINT"degrees you want to move up." 

170 PRINT- 

ISO PR I NT "PRESS ANY KEY TO CONTINUE" 

200 K*= I NKEY* : I FK$= " " THEN200 
210 CLS: FCLS: RESTORE 

220 PR I NT 00 , : I NPUT " UP " ; U*: I FLEN < U* ) >4THENPR I NT340 , STR I NG* (10,32): G0T0220 
230 I FLEN ( U* ) =4 AND ( ASC (MID* (U$, 1,1)) < >45ANDASC <MID*<U*, 1, 1) X >43 ) 

3 THENPR I NT S)40 , STRING* (10, 32) : G0T0220 

240 FRINT04O, : INF'UT"RIGHT" ; R$: IFLEN (R*) >4THENPRINTS)80, STRING* (13, 32) : G0T0240 
250 IFLEN <R*) =4AND (ASC (MID* (R*, 1 , 1 ) > < >45ANDASC (MID* <R*, 1 , 1 ) ) < >43) 

7 , THENPR I NT 080 , STR I MG* (13, 32 ) : G0SUB240 
260 U= VAL ( U* ) : R-VAL ( R* ) 

500 READX , Y , Z , L : 7 L=LINEM0DE 
510 I FX=999THEN20 10 
520 G0SUB4000 
530 G0T0500 

540 7 Each of the following 
550 7 DATA statements speci- 
560 7 fies a point, plus a 
570 7 code: 0 to move to the 
580 'point, 1 to draw a 
590 7 line there from the 
600 'previously mentioned 
610 'point. 

620 7 

1000 7 front of house 
1 0 1 0 DAT A0 . 7 , - 1 . 5 , - 1 . 5 , 0 
1 020 DAT A0 . 7 , 0 . 5 , - 1 . 5 , 1 
1030 DAT AO. 7, 0. 5, 1 . 5, 1 
1040 DATAO. 7, -1 . 5, 1 . 5, 1 
1050 DATAO. 7,-1. 5,-1. 5, 1 
1060 7 end of house 
1070 DATAO. 7, -1.5, 1.5,0 
1080 DATA-0. 7, -1.5, 1.5,1 
1 090 DATA-0 . 7 , 0 . 5 , 1 . 5 , 1 
1100 DATAO. 7, 0. 5, 1 . 5, 1 
1110 7 roof 
1120 DATAO, 1 . 2, 1 . 5, 1 
1130 DATA-0. 7, 0.5, 1.5, 1 
1 140 DATAO, 1 . 2, 1 . 5, 0 
1150 DATAO, 1 . 2, -1 . 5, 1 
1160 DATAO. 7, 0. 5, -1 . 5, 1 
1170 7 back of roof 
1180 DATAO, 1 . 2, -1 . 5, 0 
1190 DATA-0. 7, 0. 5, -1 . 5, 1 
1200 DATA-0. 7, 0. 5, 1 . 5, 1 
1210 DATAO, 1 . 2, 1 . 5, 1 
1220 7 remainder of back 
1230 DATA-0. 7, -1.5, 1.5,0 
1240 DATA-0. 7, -1 . 5. -1 . 5. 1 


1250 DATAO. 7, -1 . 5, -1 . 5, 1 

1260 DATA-O. 7, -1 . 5, -1 . 5,0 

1270 DATA-O. 7,0. 5,-1. 5, 1 

1280 DATAO. 7, 0. 5, -1 . 5, 1 

1290 ' front door 

1 300 DATAO . 7 , - 1 . 5 , -0 . 25 , 0 

1310 DATAO . 7 , -0 . 1 , -0 .25,1 

1 a 2 O DATAO. 7 , 0 . 1 , O. 25, 1 

1330 DAT AO. 7, -1.5, 0.25, 1 

1340 ’ windows 

1 350 DAT AO . 7 , -0 . 1 , - 1 . 1 , 0 

1 360 DATAO . 7 , -0 . 1 , -0 . 6 , 1 

1370 DATAO. 7, -1,-0. 6, 1 

1380 DATAO. 7, -1 , -1 . 1 , 1 

1 390 DATAO . 7 , -0 . 1 , - 1 . 1 , 1 

1 400 DATAO . 7 , -0 . 1 , 1 . 1 , 0 

1410 DATAO. 7,-0. 1,0.6, 1 

1420 DATAO. 7, -1 , 0. 6, 1 

1430 DATAO. 7, -1 , 1.1,1 

1440 DATAO. 7,-0. 1 , 1 . 1 , 1 

1 450 DATAO . 3 , -0 . 1 , 1 . 5 , 0 

1460 DATAO. 3, -1 , 1 !. 5, 1 

1470 DATA-O. 3,-1, 1.5, 1 

1 430 DATA-O . 3 , -0 . 1 , 1 . 5 , 1 

1490 DATAO. 3, -0. 1 , 1 . 5, 1 

2000 DATA999, 999, 999,999 

2010 Z$=INKEY$: IFZ$=" "THEN2010ELSELGR 

2012 PRINT380, : INPUT"DO YOU WISH TO DRAW AGAIN (Y/N) " 

2030 I FZ $= " Y " THE M2 1 0 

2040 CLS : END 

3000 ’ Subroutine 

3010 ’Given 3-D co-ord’s X,Y,Z 

3020 ’with X toward viewer, Y up, and Z toright, 

3030 ’performs transf ormation to allow for a 
3040 ’viewing position U degrees above X-Y plane 
3050 ’and R degrees to right of X-Y plane, 

3060 ’then determines XPC,YPC for plotting 

3070 ’on screen 

3080 FGR: FC0L0UR4 

3090 ’ Step 1: allow for R 

3100 R1=R/ < 45/ATN < 1 ) ) : ’ conv to radians 

3110 X1=X*C0S <R1 > +Z#SIN(R1 ) 

3120 Y1=Y 

3130 Z 1=-X*SIN <R1 ) +Z*CDS <R1 ) 

3140 ’ Step 2: allow for U 

3150 U1=U/ (45/ATN < 1 )>:’ conv to radians 

3160 X2=X1#C0S(U1 )+Yl*SIN<Ul ) 

3170 Y2=-X1 *SIN <U1 ) +Y1KC0S <U1 ) 

3180 Z2=Z 1 

3190 ’ Step 3: put onto flat plane 
3200 YR=Y2 : XR=Z2 

3210 ’ Step 4: convert to C.G’s scale 
3220 YPC=47-24. 9999KYR 
3230 XFC=30 & XR+80 
3240 ’ 

3250 RETURN 

4000 ’ Subroutine 

4010 ’Given a point X,Y,Z in the 3-D co-ord’s 
4020 ’descibed above, 1 ocates it on the screen and plots 
4030 ’point there if L I NEM0DE=0 , or draws a line to it 
4040 ’from the previously platted if LINEMODEOO. 

4050 ’ 

4060 G0SUB3G00 : ’ f i nd V PC , YPC 

4070 IFL=OTHENPLOTXPC, YPCELSEPLOTM, NTOXPC, YPC 
4075 M=XPC:N=YPC 
4080 RETURN 



TELEPHONE FILE 



INSTRUCTIONS 

With this file you may save up to 100 names and phone numbers and addresses. 

It is also possible to file any other information in a three-column format 

(1) BUILDING A FILE 

You will be prompted for Name, Phone No. and Address. When you want to finish, enter SHIFT 
§ ( ') for Name. 

The information entered may be displayed on screen, saved on tape, or sent to the printer. 

(2) DISPLAYING A FILE 

This will display what you have entered in the order you have entered it. You will need this fun 
:tion to find the number of an entry you wish to alter or delete. 

(3) PICK AN INITIAL 

This will display all entries having the same name initial 

(4) DELETING AN ENTRY 

To delete an entry you must first use (2) or (3) to find the number of the entry 

(5) ADDING TO AN EXISTING FILE 

This is similar to building a file. You must type ( ' ) - SHIFT @ - to end the additions. 

(:S> SAVING TO TAPE 

Simply follow the instructions. Make sure you have enough tape - a long file may take most of a 
310 tape. Make a backup copy. 

(7) LOADING A FILE TAPE 

r ol low instructions. As the saved tape is not alphabetized so as not to restrict a later printin 
3 format, you must alphabetize when the tape is loaded. 

(8) QUIT 


Note that when you quit, you will lose the file in memory 
O) SEND TO PRINTER and (10) ALPHABETIZE 

Before you alphabetize, you will be asked to format the output. The options are <E> or envelope 
format, where the three entries are printed one below the other, and <L> or Line output, where t 
he three entries are output in a single line, with spacings you decide - I use ^5,l-i. The choice 
is yours, as long as you do not exceed the width of your printer . You fuay also input a heading, 
printed in double width elongated type. 

You are also given the choice of single or double spaced output 

(11) ALTER AN ENTRY 

You may alter any part of an entry - name, address or telephone number, after you have found the 
number of the entry to be altered 

(12) NAME SEARCH 

If you input a name in the exact form it was entered in (1) or (5), the programme will display p 
hone number and address. 

Experiment with the programme - it can be used in other ways than as a telephone file. It t 
akes a little learning, but I have found it most useful. 

Do not hesitate to alter it for your own purposes if you have the knowledge of BASIC. I hav 
e been through 10 versions with alterations and additions - the next will be to delete the shell 
sort and replace it with a monkey-puzzle sort when I find a I isting, which wi I I speed up the al 
phabetizat ion process. Best of luck! 


JO 00 CLS 

JO 10 PR I NTS? 50 , " J J J J J J J JJJJJ" 

J020 PR INTO 90, "J J J J " 

1030 PRINT0130, "JJJJJ J J JJJJJ" 

i040 PRINTS 170, "J J J J " 

;050 PRINT3210, "J J JJJJJ JJJJJ" 

J060 PR I NTS445 , "THIS PROGRAMME WILL SAVE UP 
1065 PRINTS4S5, "NAMES, ADDRESSES, AND TELEF'HO 
JO 70 PRINTS803, "PRESS ANY KEY TO CONTINUE" 
030 K*= INKEYS: IF K*=" " THEN 5080 
090 CLEAR5OO0 

. 1 00 CLS : D I M N$ < SO ) , F"$ ( SO ) , A $ < SO > 

1110 GOSUB 5330 

120 ON Q GOTO 5130,5240,5260,5470,5570,553 
130 FDR N= 1 TO SO 

1 40 PR I NTS 1 60 , " NAME " ; : I NPUT NT ( N > 

1 50 IF NS < N ) = " 9799 " THEN P 1 =N : GOTO 5110 
1 60 PR I NT " TEL . NO . " ; : I NPUT PS < N ) 

170 PRINT "ADDRESS" INPUT AS(N) 

130 PRINTS 160, STRING* <39, 32) 

1 90 PR I NTS200 , STR I NGS ( 39 , 32 ) 

200 PRINTSTRING* <39, 32) 

210 NEXT N 

220 CLS: PRINT"LIST COMPLETE" 

230 GOTO 5110 

240 INPUT" ENTIRE FILE";SS 

250 IF SS="Y" THEN 5400 ELSE 5110 

260 PRINT "PICK AN INITIAL" 

270 INPUT J* 

230 FOR N=1 TO 30 

290 IF JS= LEFTS (NS <N) , 1 ) THEN GOSUB 5350 
300 NEXT N 

310 PRINT "NAME NOT IN FILE": FOR V=l TO 500 
320 INPUT ” TYPE ( 1 ) TO RETURN TO MENU, OR 
330 IF GKl OR Q>2 THEN 5320 
340 CLS: ON Q GOTO 5110,5260 
350 PRINT "NAME- ";NS(N> 

360 PRINT " NUMBER- ";PS(N) 

370 PR I NT "ADDRESS- ";AS<N) 

330 INPUT "PRESS RETURN TO CONTINUE" ;X 

390 RETURN 

400 FOR N=1 TO PI 

4 1 0 PR I NT " NAME - " ; NS ( N ) 

420 PR I NT " TEL ' NO : - " : PS ( N ) 

430 PR I NT " ADDRESS : - " ; AS ( N ) 

440 NEXT N 

450 I NPUT "TO RETURN TO THE MENU, PRESS RETUi 
460 CLS: GOTO 5110 

470 CLS: PRINT "ENTER THE NAME FOR THE ENTRY 
430 INPUT N* 

490 FOR N= 1 TO PI: IF N$=N*(N) THEN 5520 
500 NEXT N 

510 PRINT "NAME NOT IN FILE": GOTO 5550 
520 PR I NT "E! ,r ER THE CORRECT INFORMATION” 
530 I NPUT Ns < N ) , P* < N ) , A$ ( N ) 

540 PR I NT "THE LINE NOW READS : " : PRINTNS <N> 
550 INPUT" TO RETURN TO THE MENU, PRESS RET 
560 CLS: GOTO 5110 

570 CLS: FDR N=P1 TO 30: GOTO 5140 
580 CLS: PRINT 

590 PR I NT " PLEASE PREPARE DATA CASSETTE FOR 
600 FR I NT "RECORDING. PRESS THE PLAY AND REC 
610 PRINT "KEYS OF THE RECORDER, THEN ANY KE 
620 PRINT "THE COMPUTER" 

630 K*= INKEY*: IF K*= 


THEN 5630 


j 

:■() 
,70 
680 
b69C> 
ijyOO 
57 1 0 
3720 
5730 
5740 
5750 
5760 
5770 
5780 
5790 
5 BOO 
58 i 0 

crrv'"i 


6030 
6040 
6050 
6060 
6070 
60 SO 
6 0 9 0 
6100 


PRINT "RECORDING NOW. . . " 

PRINT# — 1 , PI 

FOR N= 1 TO P 1 : PR I NT £- 1 , NS < N ) ,P$ ( N ) , A$ « N ) : NE XT 
PR I NT" RECORDING COMPLETE-PRESS STOP BUTTON " 


PR I NT " AND REW I ND CASSETTE " : PR I NT "PRESS 
KS>= I NKEY S : IF K$=" " THEN 5690 
CLS : GOTO 5110 
CLS: PRINT 

rruiM 1 rr\crMP;D uh i m Ur-tocvic. » i Li I u hti Ln\ 

PR I NT "PRESS ANY KEY WHEN READY" 

K$= INKEYS: IF KS=" " THEN 5740 

PR I NT "LOAD I MG DATA INTO COMPUTER NOW. . 

INPUT #-l ,P1 

FOR N= 1 TO F'1:I NPUT#- 1 , NS (N) , F'S < N ) 

PR I NT "DATA LOADED: PRESS ANY KEY TO 
KS= INKEYS: IF KS="" THEN 5790 
CLS: PRINT;!) 160, "DATA LOADED" 


ANY KEY TO RETURN TO MENU 


AS <N> : NEXT 
CONTINUE" 


I NPUT "TO SEE 
^ 1 10 


5330 

REM: ME 

K f J I 

1 MU 

o34 V 

PR I NTS 1 35 

5350 

PRINT 


5860 

PRINT" 

TO 

5870 

PRINT 


5830 

PRINT" 

TO 

5890 

PRINT" 

TO 

5900 

PRINT" 

TO 

59 1 0 

PR I NT " 

TO 

5920 

PRINT" 

TO 

5 9 3 O 

PRINT” 

TO 

5940 

PRINT" 

TO 

5950 

PRINT" 

TO 

5960 

INPUT 

□ 

5970 

IF Q< 1 

OR 

59 SO 

CLS 


5990 

RETURN 


6000 

END 


60 1 0 

REM: ADAPT 

6020 

PRINT" 

PRE 


MENU PRESS RETURN" : X 


*" 


WHEN COMPLETE 


, " * MENU 

BUILD A FILE, TYPE 1 (ENTER 9999 

DISPLAY WHOLE FILE, TYPE 2" 

DISPLAY ONE INITIAL, TYPE 3" 

MAKE A CORRECTION, TYPE 4" 

ADD TO THE FILE IN MEMORY, TYPE 5" 

SAVE A FILE ON TAPE, TYPE 6" 

RETRIEVE A FILE FROM TAPE, TYPE 7" 

QUIT, TYPE 8" 

SEND A FILE TO THE PRINTER, TYPE 9" 

Q>9 THEN PRINT" ILLEGAL CHOICE-TRY AGAIN" : GOTO 5960 


FROM A TRS-SO PROGRAM BY A. K. McGILL 
9E THE PRINTER TO RECEIVE THE FILE" 
FR I NT "PRESS ANY KEY OF THE COMPUTER WHEN READY" 
KS= I NKEY* : I F K S= " " THEN 6040 
CLS : PR I NT " PR I NT I NG NOW " 

LPR I NTP 1 : PR I NT : PR I NT 

FOR M- 1 TO PI : LPR I NT NS ( N ) , F'S < N ) , AS ( N ) : NE X T 
PRINT "PRESS ANY KEY TO RETURN TO THE MENU" 

!<S= INKEYS: IF KS- " " THEN 6090 
CLS: GOTO 5110 


It »» 


K.l LL Li 

20 PRINTSTRING* i.39, 

30 PRINT 
40 PRINT 

50 PRINT" MATHS TEACHER " 

60 PRINT 
70 PRINT 
BO PRINT 

90 PR I NTSTR I NG * < 39 , " 7. " > 

100 FOR Z=1 TO 1500: NEXT Z : CLS 
110 INPUT"HOW MANY QUESTIONS"; A 
120 PR I NT " D I FF I CULT Y LEVEL:" 

130 PRINT" (11 BEGINNER" 

140 PRINT" (2) INTERMEDIATE" 

150 PRINT" (3) EXPERT" 

160 INPUT "ENTER 1,2 OR 3";L 
170 C-0 : 1=0 

180 PRINT "ENTER 1 FOR ADDITION, 2 FOR SUBTRACTION," 

190 INPUT "3 FOR DIVISION, OR 4 FOR MULT IF'LICATIQN" ; B 

200 PRINT "PEN AND PAPER NOT ALLOWED !": FOR Z = 1 TO 1500: NEXT Z 

210 IF B= 1 THEN 260 

220 IF B=2 THEN 400 

230 IF B=3 THEN 490 

240 IF B=4 THEN 590 

250 PRINT" ILLEGAL ! - WE'LL START WITH ADDITION!" 

260 FOR N=1 TO A 

270 PR I NT " QUEST I ON No . " ; N 

280 E=RND < 1 000 > : F =RND < 1 000 ') 

290 IF L= 1 AND CE>100 OR F>100) THEN 280 
300 IF L=2 AND (E>500 OR F>500) THEN 280 
310 PRINTE;" + ";F; M = " ; 

320 INPUT G:H=E+F 

330 IF G=H THEN 360 

340 PR I NT "SORRY , INCORRECT!" 

350 1=1+1: GOTO 380 

360 PR I NT "ABSOLUTELY RIGHT!" 

370 C=C+1 

380 NEXT N 

390 GOTO 680 

400 FOR N= 1 TO A 

410 PR I NT "QUEST I ON No.";N 

420 E=RND ( 1 000 > : F =RND ( 1 000 ) 

430 IF L=1 AND (E>100 OR F>100) THEN 420 
440 IF L=2 AND (E>500 OR F >500 ) THEN 420 
450 PRINTE;" - " ;F;" = 

460 INPUT G: H=E-F 

470 IF G=H THEN 360 

480 GOTO 340 

490 FOR N= 1 TO A 

500 PR I NT "QUEST I ON No. ";N 

510 E=RND(10) 

520 IF L= 1 THEN F=RND( 101TE 
530 IF L=2 THEN F =RND (500) *3 
540 IF L=3 THEN F =RND ( lOOOlTE 
550 PRINTF ; " / ";E;" = "; 

560 INPUT G:H=F/E 

570 IF G=H THEN 360 

580 GOTO 340 

590 FOR N= 1 TO A 

600 PRINT “QUESTION No. " ; N 

610 IF L= 1 THEN E=RND ( 10) : F =RND (10) 

620 IF L=2 THEN E=RND ( 15) : F=RND ( 15 > 

630 IF L=3 THEN E=RND (20) : F=RND (20) 

640 PRINTE;" X " ;F;" = "; 

650 INPUT G:H=E*F 
660 IF G=H THEN 360 
670 GOTO 340 

680 FOR Z=1 TO 1000: NEXT Z:CLS 

690 PRINT" F I N A L T A L L Y" . „ - 

700 PRINT" SSSSSSSS5SS5SSSSSSSS" -£ I 

710 PR I NT "CORRECT ANSWERS ";C 

720 PRINT" INCORRECT ANSWERS ";I 

730 PRINT 

740 T=C/ AT 100 : PR I NTT ; "7. FOR THIS EXERCISE" 

750 PRINT0880, "WANT TO TRY AGAIN ? (Y/N)" 

760 K*=INKEYt: IF K*="" THEN 760 
770 IF K*="Y" THEN RUN ELSE END 



